home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Demos / Nosferatu / Greier / Nosferatu < prev    next >
Encoding:
Text File  |  2001-07-23  |  12.8 KB  |  639 lines
  1. G4C
  2. WinBig 0 0 0 0 ''
  3. Wintype 00001000
  4. Screen Nosferatu
  5.  
  6. ;Max GadId nr. = 29
  7.  
  8.  
  9. xOnLoad
  10. CD Nosferatu:
  11. Workbench Close
  12. MakeScreen Nosferatu 640/500/6/0x8004 ""
  13. LoadImage Ram:MiniGreier/BLK Black NOREMAP
  14.   Info Image Black
  15.   Palette set Black Nosferatu
  16. LoadImage Nosferatu:Greier/Main RPic NOREMAP
  17. ;Info Image RPic
  18. ;Palette set RPic Nosferatu
  19.   MoveScreen #Nosferatu $*NosferatuBredde 0 
  20. WinBackGround image RPic 0
  21. LoadImage Ram:MiniGreier/PlayLys PlayLight NOREMAP
  22. LoadImage Ram:MiniGreier/ErrPic1 PicErr1 NOREMAP
  23. LoadImage Ram:MiniGreier/ErrPic2 PicErr2 NOREMAP
  24. LoadImage Ram:MiniGreier/OnLys LightOn NOREMAP
  25. LoadImage Ram:MiniGreier/OnLys2 LightOn2 NOREMAP
  26. LoadImage Ram:MiniGreier/BLK SmallPic2 NOREMAP ;Husk BLK
  27. LoadImage Ram:MiniGreier/Peker NosPointer NOREMAP ;---------
  28. RUN 'Nosferatu:Zet/FKey CX_POPUP=NO >nil:'
  29.  
  30. PictureSet = 1
  31. SSTime = 10
  32. Playing = 0
  33. PicNum = 0
  34. TopNum = 1
  35. Delay = 1
  36. Loop = 0
  37. PPloop = ""
  38. ;PicDir = Nosferatu:P1/
  39. PicDir = $*NosferatuBig1 ;......
  40. ;PicDirMini = Nosferatu:P1m/
  41. PicDirMini = $*NosferatuSmall1
  42. MAXPicNum = 21 ; Maximum LV
  43. MAXTopNum = 22 ; Maximum Top
  44. Setgad #This 5 HIDE  ;ListView
  45. SetGad #This 14 HIDE ;PlayLys
  46. SetGad #This 15 HIDE ;PlayLys
  47. SetGad #This 29 HIDE ;Slå Av LOOP
  48. SetGad #This 28 HIDE ;Pictureset2 OFF
  49. GuiOpen Nosferatu
  50. SETPOINTER #This #NosPointer
  51.   Info Image RPic
  52.   Palette set RPic Nosferatu
  53.  
  54. LVUse #This 5
  55. LVGo #1
  56. PicTitle = $$LV.REC
  57.   CutVar PicTitle CUT CHAR 3 PicName
  58.   Update #This 7 $PicTitle ;Første
  59. LVUse #This 5
  60. LVGo #0
  61. PicTitle = $$LV.REC
  62.  CutVar PicTitle CUT CHAR 3 PicName
  63. PicAll = $PicDir
  64. AppVar PicAll $PicName
  65.   PicAllMini = $PicDirMini
  66.   AppVar PicAllMini $PicName
  67. loadimage $PicAllMini SmallPic2 NOREMAP
  68. ChangeImage Nosferatu 10 -1 -1 SmallPic2
  69. Update #This 8 $PicTitle
  70. Update #This 6 $SSTime
  71. Update #This 12 1  ;     First Picture
  72. Update #This 13 $MAXTopNum ;     MAX Pictures Top
  73.  
  74.    If $$MEM.CHIP > 400000
  75.    SetGad #This 14 SHOW ;PlayLys
  76.    PartRedraw #This 100 377 13 12
  77.    RUN 'Nosferatu:Zet/OMP Nosferatu:Greier/DizzyFunk Quit >nil:'
  78.    Playing = 1
  79.    EndIf
  80.    MusFile = 1
  81. INFO GUI Nosferatu
  82.  
  83. image 269 363 Black ; Senter ?
  84. gadid 10
  85.  
  86.  
  87. xOnRMB
  88. Gosub #This ViewPic
  89.  
  90.  
  91.  
  92. xOnQuit
  93. RUN 'PPshow >nil: Nosferatu:Greier/BLK2 nomouse time 25'
  94. If $Playing > 0
  95. RUN 'Nosferatu:Zet/OMP Quit'
  96. EndIf
  97.  Delay 50
  98. RUN 'Nosferatu:Zet/OMP >nil: Nosferatu:Greier/Intro'
  99. CLI 'PPshow >nil: Nosferatu:Greier/Watching Nosferatu:Greier/Title nomouse time 8'
  100. RUN 'PPshow >nil: Nosferatu:Greier/Credits nomouse time 15'
  101.  
  102. SETPOINTER #This Default
  103. GuiClose #This
  104. KillScreen Nosferatu
  105. freeimage RPic
  106. freeimage SmallPic2
  107. freeimage PlayLight
  108. freeimage Black
  109. freeimage PicErr1
  110. freeimage PicErr2
  111. freeimage LightOn
  112. freeimage LightOn2
  113. freeimage NosPointer
  114. DelVar *NosferatuBig1
  115. DelVar *NosferatuBig2
  116. DelVar *NosferatuSmall1
  117. DelVar *NosferatuSmall2
  118. DelVar *NosferatuBredde
  119. CLI 'Delete >nil: Ram:MiniGreier ALL'
  120. IfExists DIRECTORY Ram:NosP1m
  121. CLI 'Delete >nil: Ram:NosP1m ALL'
  122. EndIf
  123. IfExists DIRECTORY Ram:NosP2m
  124. CLI 'Delete >nil: Ram:NosP2m ALL'
  125. EndIf
  126. IfExists DIRECTORY Ram:NosP1
  127. CLI 'Delete >nil: Ram:NosP1 ALL'
  128. EndIf
  129. IfExists DIRECTORY Ram:NosP2
  130. CLI 'Delete >nil: Ram:NosP2 ALL'
  131. EndIf
  132. Delete Env:PPresult
  133. Delete Ram:Plist1
  134. Delete Ram:Plist2
  135. Delete Env:MusResult1
  136. Delete Env:MusResult2
  137.  
  138. CLI 'Status Command Nosferatu:Zet/FKey >Env:.Knull'
  139. CLI 'BREAK $.Knull >nil:'
  140.  
  141. Workbench Open
  142.    If $..FKeyCommand > 0
  143.    CLI 'RUN >nil: $..FKeyCommand CX_POPUP=NO'
  144.    EndIf
  145.    Delete Env:FKeyCommand
  146. Delete Env:.Knull
  147. Delay 1000
  148.  
  149. CLI 'Nosferatu:Zet/OMP Quit'
  150. CLI 'resident PPshow Remove' ;SISTE !!!
  151. CLI 'Assign >nil: Libs: Nosferatu:Libs REMOVE'
  152. CLI 'Assign >nil: Fonts: Nosferatu:Fonts REMOVE'
  153. CLI 'Assign >nil: Nosferatu: REMOVE'
  154. ;Delay 50
  155. ;RUN 'Gui T:FinalNosQuit'
  156.  
  157. xOnKey R ;   - Remap colours of screen -
  158. Info Image RPic
  159. Palette set RPic Nosferatu
  160.  
  161.  
  162. XAREA 37 20 100 24 COMP  ;  - QUIT NOSFERATU -
  163. GuiQuit #This
  164. ;------------
  165.  
  166.  
  167. XAREA 503 20 45 24 COMP ;  - HELP -
  168. GadKey H
  169. CLI 'PPshow >nil: Nosferatu:Greier/NosHelp1 Nosferatu:Greier/NosHelp2 NoMouse'
  170.  
  171. XAREA 552 20 51 24 COMP ;  - CREDITS -
  172. GadKey C
  173. CLI 'PPshow >Env:PPresult Nosferatu:Greier/Credits NoMouse'
  174.  
  175.  
  176. Image 357 26 LightOn
  177. gadid 26
  178. Image 357 56 LightOn
  179. gadid 28
  180. XAREA 264 20 112 24 COMP ;  - Pics1 -
  181. Gosub #This PicturesOne
  182. XAREA 264 50 112 24 COMP ;  - Pics2 -
  183. Gosub #This PicturesTwo
  184.  
  185.  
  186. xListView 400 125 150 100 "" PicName Ram:Plist1 0 TXT
  187. GADID 5
  188.  
  189. xTextBox 287 280 27 18 "" ""   ; - Current PicNum -
  190. Gadid 12
  191. ATTR TBSTYLE 3/1/PLAIN/CENTER
  192. ATTR TBOX 0/0/0/PLAIN/NONE/IN
  193. GadFont P0T-Prop.font 11 000
  194.  
  195. xTextBox 326 280 27 18 "" ""   ; - Max PicNum -
  196. Gadid 13
  197. ATTR TBSTYLE 3/1/PLAIN/CENTER
  198. ATTR TBOX 0/0/0/PLAIN/NONE/IN
  199. GadFont P0T-Prop.font 11 000
  200.  
  201.  
  202.  
  203.  
  204.  
  205. xTextBox 46 312 168 18 "" ""   ;  - Venstre Pic Navn -
  206. Gadid 7
  207. ATTR TBSTYLE 3/1/PLAIN/CENTER
  208. ATTR TBOX 0/0/0/PLAIN/NONE/IN
  209. GadFont P0T-Prop.font 11 000
  210.  
  211. xTextBox 236 312 168 18 "" ""  ;  - Midtre Pic Navn -
  212. Gadid 8
  213. ATTR TBSTYLE 3/1/PLAIN/CENTER
  214. ATTR TBOX 0/0/0/PLAIN/NONE/IN
  215. GadFont P0T-Prop.font 11 000
  216.  
  217. xTextBox 426 312 168 18 "" ""  ;  - Høyre Pic Navn -
  218. Gadid 9
  219. ATTR TBSTYLE 3/1/PLAIN/CENTER
  220. ATTR TBOX 0/0/0/PLAIN/NONE/IN
  221. GadFont P0T-Prop.font 11 000
  222.  
  223.  
  224.  
  225. ;------------
  226. XAREA 157 379 82 68 COMP    ;  - Prev Pic -
  227. GadKey A ;#79
  228. Gosub #This PREV
  229.  
  230. xRoutine PREV
  231. --PicNum
  232. If $PicNum < 0 ; MIN ANTALL
  233. PicNum = $MAXPicNum
  234. EndIf
  235. Update #This 7 $PicTitle ;Venstre
  236. LVUse #This 5
  237. LVGo #$PicNum
  238.  PicTitle = $$LV.REC
  239.  CutVar PicTitle CUT CHAR 3 PicName
  240. Update #This 8 $PicTitle  ;Current
  241. PicAll = $PicDir
  242. AppVar PicAll $PicName
  243.   PicAllMini = $PicDirMini
  244.   AppVar PicAllMini $PicName
  245.  
  246.     PicNum2 = $($PicNum -1)  ; NESTE
  247.     If $PicNum2 < 0   ; Min Antall
  248.     PicNum2 = $MAXPicNum
  249.     EndIf
  250.     LVGo #$PicNum2
  251.     PicTitle3 = $$LV.REC
  252.     CutVar PicTitle3 CUT CHAR 3 PicName3
  253.     Update #This 9 $PicTitle3 ; Høyre
  254.        --TopNum
  255.        If $TopNum < 1   ; OBS *****
  256.        TopNum = $MAXTopNum
  257.        EndIf
  258.        Update #This 12 $TopNum ; Oppdater NummerTeller ******
  259.  
  260. freeimage SmallPic2
  261. loadimage $PicAllMini SmallPic2 NOREMAP
  262. ChangeImage Nosferatu 10 -1 -1 SmallPic2
  263.  
  264.  
  265.  
  266. ;------------
  267.  
  268. XAREA 400 379 82 68 COMP  ;     - Next Pic -
  269. GadKey S
  270. Gosub #This NEXT
  271.  
  272. xRoutine NEXT
  273. ++PicNum
  274. If $PicNum > $MAXPicNum ; MAX ANTALL
  275. PicNum = 0
  276. EndIf
  277. Update #This 9 $PicTitle ;Høyre
  278. LVUse #This 5
  279. LVGo #$PicNum
  280.  PicTitle = $$LV.REC
  281.  CutVar PicTitle CUT CHAR 3 PicName
  282.  Update #This 8 $PicTitle
  283. PicAll = $PicDir
  284. AppVar PicAll $PicName
  285.   PicAllMini = $PicDirMini
  286.   AppVar PicAllMini $PicName
  287.  
  288.     PicNum2 = $($PicNum +1)  ; NESTE
  289.     If $PicNum2 > $MAXPicNum   ; Max Antall (LV)
  290.     PicNum2 = 0
  291.     EndIf
  292.     LVGo #$PicNum2
  293.     PicTitle2 = $$LV.REC
  294.     CutVar PicTitle2 CUT CHAR 3 PicName2
  295.     Update #This 7 $PicTitle2
  296.  
  297.        ++TopNum
  298.        If $TopNum > $MAXTopNum   ; OBS *****
  299.        TopNum = 1
  300.        EndIf
  301.        Update #This 12 $TopNum ; Oppdater NummerTeller ******
  302.  
  303. freeimage SmallPic2
  304. loadimage $PicAllMini SmallPic2 NOREMAP
  305. ChangeImage Nosferatu 10 -1 -1 SmallPic2
  306.  
  307.  
  308.  
  309.  
  310.  
  311. XAREA 257 350 126 126 NONE  ;   - View Pic -
  312. GadKey W
  313. Gosub #This ViewPic
  314.  
  315. xRoutine ViewPic
  316. CLI 'PPshow >Env:PPresult $PicAll NoMouse'
  317. PPvar = ""
  318. ReadVar Env:PPresult 137 200 PPvar
  319. SearchVar PPvar unable CI FIRST
  320. If $$SEARCH.POS != ""
  321. Flash
  322. ChangeImage Nosferatu 10 -1 -1 PicErr1
  323. DELAY 100
  324. ChangeImage Nosferatu 10 -1 -1 SmallPic2
  325. EndIf
  326. ;---------
  327.   SearchVar PPvar Out CI FIRST
  328.   If $$SEARCH.POS = ""
  329.   PPvar = ""
  330.   STOP
  331.   Else
  332. Flash
  333. ChangeImage Nosferatu 10 -1 -1 PicErr2
  334. DELAY 100
  335. ChangeImage Nosferatu 10 -1 -1 SmallPic2
  336.   EndIf
  337.   PPvar = ""
  338.  
  339.  
  340. ;--------------------
  341. XAREA 520 371 100 24 COMP ;            - Slide Show -
  342. GadKey E
  343. Slide = #?
  344. SlideAll = $PicDir
  345. AppVar SlideAll $Slide
  346. ;-----  P1 = 120000
  347.  
  348.    If $PictureSet = 1
  349.    And $$MEM.CHIP < 120000
  350.    OR $PictureSet = 2
  351.    And $$MEM.CHIP < 800000
  352.   GuiClose #This
  353.   freeimage RPic
  354.   GuiClosed = 1
  355.   Else
  356.   GuiClosed = 0
  357.   EndIf
  358.   
  359. ;------
  360.   CD $PicDir
  361. If $Delay = 1
  362. CLI 'PPshow >nil: 01. 02. 03. 04. 05. 06. 07. 08. 09. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. NOMOUSE TIME $SSTime $PPloop'
  363. Else
  364. CLI 'PPshow >nil: 01. 02. 03. 04. 05. 06. 07. 08. 09. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. NOMOUSE $PPloop'
  365. EndIf
  366.   CD Nosferatu:
  367.  
  368. If $GuiClosed = 1
  369. LoadImage Nosferatu:Greier/Main RPic NOREMAP
  370. Info Image RPic
  371. Palette set RPic Nosferatu
  372. GuiOpen #This
  373. GuiClosed = 0
  374. EndIf
  375.  
  376.  
  377. XAREA 520 401 25 24 COMP    ;  - Decrease Delay (<) -
  378. GadKey Z
  379. --SSTime
  380. If $SSTime < 0
  381. SSTime = 299
  382. Endif
  383. Update #This 6 $SSTime
  384.  
  385.  
  386. xTextBox 553 404 33 18 "" "" ;  - Show Delay -
  387. Gadid 6
  388. ATTR TBSTYLE 3/1/PLAIN/CENTER
  389. ATTR TBOX 0/0/0/PLAIN/NONE/IN
  390. GadFont P0T-Prop.font 11 000
  391.  
  392.  
  393.  
  394. XAREA 595 401 25 24 COMP    ;  - Increase Delay (>) -
  395. GadKey X
  396. ++SSTime
  397. If $SSTime > 299
  398. SSTime = 0
  399. Endif
  400. Update #This 6 $SSTime
  401.  
  402.  
  403. ;-------  DELAY -------
  404. image 557 439 LightOn2
  405. gadid 27
  406. XAREA 520 431 51 24 COMP   ;  - Set Delay On/Off -
  407. GadKey D
  408.   
  409. If $Delay = 0  ;Slå På DELAY
  410. SetGad #This 27 SHOW
  411. PartRedraw #This 557 439 8 8
  412. Delay = 1
  413. Else
  414. SetGad #This 27 HIDE ;Slå Av DELAY
  415. PartRedraw #This 557 439 8 8
  416. Delay = 0
  417. EndIf
  418.  
  419. ;-------  LOOP -------
  420. image 606 439 LightOn2
  421. gadid 29
  422. XAREA 575 431 45 24 COMP   ;  - Set Loop On/Off -
  423. GadKey L
  424. If $Loop = 0  ;Slå På LOOP
  425. SetGad #This 29 SHOW
  426. PartRedraw #This 606 439 8 8
  427. PPloop = LOOP
  428. Loop = 1
  429. Else
  430. SetGad #This 29 HIDE ;Slå Av LOOP
  431. PartRedraw #This 606 439 8 8
  432. PPloop = ""
  433. Loop = 0
  434. EndIf
  435.  
  436.  
  437. ;------------------
  438.  
  439.  
  440.  
  441.  
  442. image 100 377 PlayLight
  443. gadid 14
  444. image 100 407 PlayLight
  445. gadid 15
  446.  
  447.  
  448. XAREA 20 371 100 24 COMP  ;  - Play Dizzy Funk -
  449. GadKey 1
  450. SetGad #This 14 SHOW
  451. PartRedraw #This 100 377 13 12
  452. SetGad #This 15 HIDE
  453. PartRedraw #This 100 407 13 12
  454. ;RUN 'Nosferatu:Zet/OMP Nosferatu:Greier/DizzyFunk Quit >nil:'
  455.  If $MusFile = 2
  456.  Launch 1 'Nosferatu:Zet/OMP Nosferatu:Greier/DizzyFunk Quit >env:MusResult1'
  457.   MusFile = 1
  458.  Else
  459.  Launch 1 'Nosferatu:Zet/OMP Nosferatu:Greier/DizzyFunk Quit >env:MusResult2'
  460.   MusFile = 2
  461.  EndIf
  462. Playing = 1
  463. Delay 50
  464.  
  465.  
  466. XAREA 20 401 100 24 COMP  ;  - Play Deilig? -
  467. GadKey 2
  468. SetGad #This 15 SHOW
  469. PartRedraw #This 100 407 13 12
  470. SetGad #This 14 HIDE
  471. PartRedraw #This 100 377 13 12
  472. ;RUN 'Nosferatu:Zet/OMP Nosferatu:Greier/Deilig Quit >nil:'
  473.  If $MusFile = 2
  474.  Launch 1 'Nosferatu:Zet/OMP Nosferatu:Greier/Deilig Quit >env:MusResult1'
  475.   MusFile = 1
  476.  Else
  477.  Launch 1 'Nosferatu:Zet/OMP Nosferatu:Greier/Deilig Quit >env:MusResult2'
  478.   MusFile = 2
  479.  EndIf
  480.  Playing = 2
  481. Delay 50
  482.  
  483. XAREA 20 431 100 24 COMP  ;  - Stop Music -
  484. GadKey 3
  485. SetGad #This 14 HIDE
  486. PartRedraw #This 100 377 13 12
  487. SetGad #This 15 HIDE
  488. PartRedraw #This 100 407 13 12
  489. RUN 'Nosferatu:Zet/OMP Quit >nil:'
  490. Playing = 0
  491.  
  492.  
  493. xOnReturn 1
  494. If $Playing = 0
  495. STOP
  496. EndIf
  497. MusVar = ""
  498. If $MusFile = 1
  499. ReadVar Env:MusResult1 61 100 MusVar ; var 200
  500. Else
  501. ReadVar Env:MusResult2 61 100 MusVar ; var 200
  502. EndIf
  503.  
  504. SearchVar MusVar memory CI FIRST
  505. If $$SEARCH.POS != ""
  506. MusErrImage = PicErr2
  507. Gosub #This MusicError
  508. STOP
  509. EndIf
  510.  
  511. SearchVar MusVar Error CI FIRST
  512. If $$SEARCH.POS != ""
  513. loadimage Nosferatu:Greier/ErrMus MusErr NOREMAP
  514. MusErrImage = MusErr
  515. Gosub #This MusicError
  516. freeimage MusErr
  517. STOP
  518. EndIf
  519.  
  520.  
  521. xRoutine MusicError
  522. Flash
  523. ChangeImage Nosferatu 10 -1 -1 $MusErrImage ;PicErr2
  524. DELAY 100
  525. ChangeImage Nosferatu 10 -1 -1 SmallPic2
  526. SetGad #This 14 HIDE
  527. PartRedraw #This 100 377 13 12
  528. SetGad #This 15 HIDE
  529. PartRedraw #This 100 407 13 12
  530. Playing = 0
  531. RETURN
  532.  
  533. ;----
  534. ;OctaMEDPlayer V6.04  ©1991-1996 by Teijo Kinnunen
  535. ;Loading...
  536. ;Load Error: not enough memory available
  537. ;
  538. ;----
  539.  
  540. ;-------- LISTVIEW CHANGE -----------
  541.  
  542. xOnKey #13
  543. If $PictureSet = 2
  544. Gosub #This PicturesOne
  545. Else
  546. Gosub #This PicturesTwo
  547. EndIf
  548.  
  549.  
  550. xOnKey #R
  551. If $$RAWKEY.CODE = 79
  552. gosub #This PREV
  553. Endif
  554. If $$RAWKEY.CODE = 78
  555. gosub #This NEXT
  556. Endif
  557. If $$RAWKEY.CODE = 76
  558. gosub #This ViewPic
  559. Endif
  560.  
  561. If $$RAWKEY.CODE = 80
  562. gosub #This PicturesOne
  563. Endif
  564. If $$RAWKEY.CODE = 81
  565. gosub #This PicturesTwo
  566. Endif
  567. If $$RAWKEY.CODE = 89
  568.   ;If $$G4C.LOADED > 1
  569.   GuiQuit #This
  570.   ;Else
  571.   ;QUIT
  572.   ;EndIf
  573. Endif
  574.  
  575. xRoutine PicturesOne
  576. SetGad #This 26 SHOW ;Pictureset2 ON
  577. PartRedraw #This 357 26 11 11
  578. SetGad #This 28 HIDE ;Pictureset2 OFF
  579. PartRedraw #This 357 56 11 11
  580. PicNum = 0
  581. TopNum = 1
  582. PicDir = $*NosferatuBig1
  583. PicDirMini = $*NosferatuSmall1
  584. MAXPicNum = 21 ; Maximum LV
  585. MAXTopNum = 22 ; Maximum Top
  586. LVchange Ram:Plist1
  587. PictureSet = 1
  588. Gosub #This UpdateStuff
  589.  
  590. xRoutine PicturesTwo
  591. SetGad #This 26 HIDE ;Pictureset2 OFF
  592. PartRedraw #This 357 26 11 11
  593. SetGad #This 28 SHOW ;Pictureset2 ON
  594. PartRedraw #This 357 56 11 11
  595. PicNum = 0
  596. TopNum = 1
  597. PicDir = $*NosferatuBig2
  598. PicDirMini = $*NosferatuSmall2
  599. MAXPicNum = 21 ; Maximum LV
  600. MAXTopNum = 22 ; Maximum Top
  601. LVchange Ram:Plist2
  602. PictureSet = 2
  603. Gosub #This UpdateStuff
  604.  
  605.  
  606. xRoutine UpdateStuff
  607.     Update #This 9 "" ; Høyre
  608. LVUse #This 5
  609. LVGo #1
  610. PicTitle = $$LV.REC
  611.  CutVar PicTitle CUT CHAR 3 PicName
  612.  Update #This 7 $PicTitle ;Første
  613.  
  614. LVUse #This 5
  615. LVGo #0
  616. PicTitle = $$LV.REC
  617.  CutVar PicTitle CUT CHAR 3 PicName
  618. PicAll = $PicDir
  619. AppVar PicAll $PicName
  620.   PicAllMini = $PicDirMini
  621.   AppVar PicAllMini $PicName
  622.  
  623. loadimage $PicAllMini SmallPic2 NOREMAP
  624. ChangeImage Nosferatu 10 -1 -1 SmallPic2
  625. Update #This 8 $PicTitle
  626. Update #This 12 1  ;     First Picture
  627. Update #This 13 $MAXTopNum ;     MAX Pictures Top
  628.  
  629. TEXTFILE T:FinalNosQuit
  630. G4C
  631. xOnLoad
  632. If $$G4C.LOADED = 1
  633. QUIT
  634. Else
  635. GuiQuit #This
  636. EndIf
  637. ###
  638.  
  639.  
  640.